Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 585,196.1 108.35 313,273.7 1,170,392 400.07 674,889.2 585,196.10 100
lp://DOT/LCDOT 3,923,705.6 3,656.57 2,363,196.3 3,911,837 3,646.27 2,416,593.4 11,868.15 2
lp://AUSD/LCDOT 2,151,328.6 3,610.89 1,652,408.3 2,145,246 3,600.67 1,686,329.6 6,083.07 1
lp://ACA/AUSD 1,532,049.6 6,136.62 1,210,642.8 1,531,881 6,164.88 1,913,867.3 168.67 0

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,336,920.81 -410.91 -13,696.09 NA NA NA NA NA
lp://KINT/AUSD -1,218,416.76 -10.01 -5,217.74 NA NA NA NA NA
lp://PHA/AUSD -982,904.35 -44.91 -2,113.82 NA NA NA NA NA
lp://AUSD/KINT 1,198,033.18 -557.49 -5,795.31 21,542.65 10.43 11,335.61 1,176,490.53 NA
lp://AUSD/PHA 970,719.79 -35.81 -2,117.25 23,315.04 157.29 7,594.13 947,404.75 NA
lp://AUSD/KBTC 1,209,006.74 -1,739.89 -11,429.56 410,233.84 13,845.46 115,861.64 798,772.89 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,486.23 114.77 1,603.36 4,486.23 NA
lp://KAR/LKSM 627,605.96 0.00 173,941.17 631,116.47 126.35 207,343.98 3,510.52 NA
lp://KAR/KSM 883,422.09 251.11 357,515.66 885,308.07 251.46 363,613.59 1,885.98 NA
lp://AUSD/LKSM 438,181.90 52.49 219,897.67 439,876.66 52.71 290,899.67 1,694.76 NA
lp://KAR/AUSD 443,615.65 288.92 194,238.09 444,359.38 610.68 297,071.64 743.74 NA
lp://KSM/LKSM 114,868.95 52.36 63,976.06 115,446.86 52.62 64,506.71 577.90 NA
lp://AUSD/BNC 61,141.22 1,447.16 17,985.36 60,761.55 1,448.37 18,015.97 379.67 NA
lp://AUSD/QTZ 17,702.65 112.33 7,816.76 17,844.81 486.90 19,569.59 142.16 NA
lp://KAR/QTZ 19,458.61 0.23 6,065.09 19,541.92 128.18 7,345.23 83.31 NA
lp://KSM/ARIS 72.29 5.07 73.38 144.58 10.88 164.95 72.29 NA
lp://AUSD/RMRK 11,474.00 11.76 8,665.91 11,446.57 11.75 8,664.55 27.43 NA
lp://AUSD/KSM 568,714.15 1,190.68 588,992.08 568,723.80 1,190.68 590,516.93 9.65 NA
lp://KSM/RMRK 40,711.25 50.16 36,368.94 40,704.32 50.14 37,275.56 6.93 NA
lp://AUSD/CSM 22,454.93 2.57 7,136.05 22,449.79 2.57 9,651.68 5.14 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```